Option Explicit
Sub E_Sample021()
   'ո E_Data01u@g
    'o̷|ܧeAҥHбzƻsAӰC
    Dim myRng1 As Range
    Dim myRng2 As Range
    Dim mySht  As Worksheet
    With Worksheets
        .Item("E_Data01").Copy After:=.Item(.Count)		'u@ƻs
    End With
    Set myRng1 = _
    ActiveSheet.Range("A1").CurrentRegion			'ӷd
    With myRng1
        .AutoFilter Field:=3, Criteria1:="=s*"			'󪺫w
        Set myRng2 = .SpecialCells(xlCellTypeVisible)
        .AutoFilter
        myRng2.EntireRow.Hidden = True
        On Error Resume Next
        .SpecialCells(xlCellTypeVisible).EntireRow.Delete
        On Error GoTo 0
        myRng2.EntireRow.Hidden = False
    End With
    Set myRng1 = Nothing					'
    Set myRng2 = Nothing
End Sub
